home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / utils / datatypes / akjfif_dt.lha / akJFIF-Datatype / Install < prev    next >
Text File  |  1998-02-03  |  4KB  |  120 lines
  1. ;$VER: akJFIF_Installer 43.100 (16.10.1997) #DOS © Msi Software
  2.  
  3. FAILAT 21
  4.  
  5. ;Check OS version!
  6. c/akT OS 39
  7. IF WARN
  8.    ECHO "You need OS 3.0 or later!"
  9.    ASK "Press return!"
  10.    QUIT
  11. ENDIF
  12.  
  13. ;Display old and new dt version etc!
  14. c/akT >ENV:akver VER classes/Datatypes/akJFIF.datatype
  15. c/akT >ENV:akverold VER Sys:Classes/Datatypes/akJFIF.datatype
  16. IF NOT WARN
  17.    C:RequestChoice >NIL: "Andreas Ralph Kleinert presents:" "$akver" "Install/Update"
  18. ELSE
  19.    C:RequestChoice >NIL: "Andreas Ralph Kleinert presents:" "$akver*N(old: $akverold)" "Install/Update"
  20. ENDIF
  21. UNSETENV akver
  22. UNSETENV akverold
  23.  
  24. ;Create dt prefs drawer if not found!
  25. IF NOT EXISTS SYS:Prefs/DataTypes
  26.    C:Makedir >NIL: SYS:Prefs/DataTypes
  27.    C:Copy >NIL: prefs/datatypes.info SYS:Prefs/DataTypes.info CLONE
  28. ENDIF
  29.  
  30. ;Move any dtprefs to sys:prefs/datatypes!
  31. IF EXISTS sys:prefs/akJFIFprefs
  32.    C:Rename >NIL: sys:prefs/akJFIFprefs#? sys:prefs/datatypes
  33. ENDIF
  34.  
  35. ;Create ENV:Datatypes if not found!
  36. IF NOT EXISTS ENV:Datatypes
  37.    C:Makedir >NIL: ENV:Datatypes ENVARC:Datatypes
  38. ENDIF
  39.  
  40. ;Install dtprefs if not found or current one is old!
  41. c/akT CHK prefs/datatypes/akJFIFPrefs SYS:prefs/datatypes/akJFIFPrefs
  42. IF WARN
  43.    C:Copy >NIL: prefs/datatypes/akJFIFPrefs SYS:prefs/datatypes CLONE
  44.    IF NOT EXISTS SYS:prefs/datatypes/akJFIFPrefs.info
  45.       C:Copy >NIL: prefs/datatypes/akJFIFPrefs.info SYS:prefs/datatypes CLONE
  46.    ENDIF
  47. ENDIF
  48.  
  49. ;Install gui if not found or current one is old!
  50. c/akT CHK prefs/datatypes/akJFIFPrefs_gui.wizard SYS:prefs/datatypes/akJFIFPrefs_gui.wizard
  51. IF WARN
  52.    C:Copy >NIL: prefs/datatypes/akJFIFPrefs_gui.wizard SYS:prefs/datatypes CLONE
  53. ENDIF
  54.  
  55. ;Install correct dt!
  56. c/akT CHK classes/datatypes/akJFIF.datatype SYS:classes/datatypes/akJFIF.datatype
  57. IF WARN
  58.    c/akT CPU 060
  59.    IF NOT WARN
  60.       C:Copy >NIL: classes/datatypes/akJFIF.datatype.060 SYS:Classes/datatypes/akJFIF.datatype CLONE
  61.    ELSE
  62.       c/akT CPU 040
  63.       IF NOT WARN
  64.          C:Copy >NIL: classes/datatypes/akJFIF.datatype.040 SYS:Classes/datatypes/akJFIF.datatype CLONE
  65.       ELSE
  66.          c/akT CPU 030
  67.          IF NOT WARN
  68.             C:Copy >NIL: classes/datatypes/akJFIF.datatype.030 SYS:Classes/datatypes/akJFIF.datatype CLONE
  69.          ELSE
  70.             c/akT CPU 020
  71.             IF NOT WARN
  72.                C:Copy >NIL: classes/datatypes/akJFIF.datatype.030 SYS:Classes/datatypes/akJFIF.datatype CLONE
  73.             ELSE
  74.                C:Copy >NIL: classes/datatypes/akJFIF.datatype SYS:Classes/datatypes/akJFIF.datatype CLONE
  75.             ENDIF
  76.          ENDIF
  77.       ENDIF
  78.    ENDIF
  79.  
  80.    ;Move any old dt headers to storage!
  81.    Rename >NIL: SYS:Devs/Datatypes/#?JFIF SYS:Storage/Datatypes/
  82.    Rename >NIL: SYS:Devs/Datatypes/#?JPEG#? SYS:Storage/Datatypes/
  83.    Rename >NIL: SYS:Devs/Datatypes/JPG#? SYS:Storage/Datatypes/
  84.  
  85.    ;Install new dt header!
  86.    C:Copy >NIL: devs/datatypes/JFIF DEVS:DataTypes
  87.    IF NOT EXISTS DEVS:DataTypes/JFIF.info
  88.       C:Copy >NIL: devs/datatypes/JFIF.info DEVS:DataTypes
  89.    ENDIF
  90.  
  91.    ;If VMEM assign not found, assign it and add to user-startup!
  92.    c/akT ASN vmem
  93.    IF WARN
  94.       C:RequestChoice >NIL: "ak Installer" "The VMEM: assign was not found!*NIt is needed by this datatype,*Nto be used as temporary directory." "Assign"
  95.       C:RequestFile >ENV:akvmem "SYS:" TITLE="Please select temporary dir:" SAVEMODE DRAWERSONLY NOICONS
  96.       ECHO >>S:User-Startup "*N;BEGIN VMEM"
  97.       ECHO >>S:User-Startup "Assign >NIL: VMEM: $akvmem"
  98.       ECHO >>S:User-Startup ";END VMEM"
  99.       C:Assign >NIL: VMEM: $akvmem
  100.       UNSETENV akvmem
  101.    ENDIF
  102.  
  103.    ;Change dir to docs!
  104.    CD Docs
  105.  
  106.    ;Show guide and start dtprefs!
  107.    Run >NIL: MultiView akJFIF.guide
  108.    Run >NIL: /Prefs/DataTypes/akJFIFPrefs
  109.  
  110.    ;Install completed message!
  111.    C:RequestChoice >NIL: "ak Installer" "Install completed!*NPlease reboot the system,*Nto use the new datatype!*N*NIf this is the first time you install,*Nyou do not need to reboot!" "Ok"
  112.    C:AddDataTypes >NIL: REFRESH
  113. ELSE
  114.    ;Install not needed message!
  115.    C:RequestChoice >NIL: "ak Installer" "Install not needed!*NYou have the same or a higher version!" "Ok"
  116. ENDIF
  117.  
  118. ;Clean up memory/free resources!
  119. C:Avail >NIL: FLUSH
  120.